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MODULE GETFIB (LANGUAGE (BL S838) . 
IDENT = 'V04-000" 


BEGIN 
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ie COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
ie DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
ie ALL RIGHTS RESERVED. 
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IBILITY FOR THE USE OR RELIABILITY OF ITS 
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i++ 

i FACILITY: MTAACP 

ABSTRACT: 

This routine obtains the address of the fib for this operation. 
; ENVIRONMENT: 

: Starlet operating system, including privileged system services 
and internal exec routines. 

— 

¢ 

AUTHOR: D. H. GILLESPIE, CREATION DATE: 11-MAY-1977 01:02 

! MODIFIED BY: 


V02-002 REFORMAT Maria del C. Nasr 30-Jun-1980 


LIBRARY ‘SYSSLIBRARY:LIB.L32'; 
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GLOBAL ROUTINE GET_FIB (ABD) : COMMON_CALL 
lee 
! 

FUNCTIONAL DESCRIPTION: 
This routine obtains the address of the fib for this operation. 
If a file is already accessed and fid is given than it must be that of the 
accessed file. A copy is made in user space. 


CALLING SEQUENCE: 
GET_FIB (ARG1) 


INPUT PARAMETERS: 
ARG1 : address of buffer descriptor List 


IMPLICIT INPUTS: 
CURRENT_WCB : address of user's window or 0 


OUTPUT PARAMETERS: 
none 

IMPLICIT OUTPUTS: 
none 


ROUTINE VALUE: 
address of fib 


SIDE EFFECTS: 
fid checked 


USER ERRORS: 
SSS_INSFARG = insufficient arguments 
SS$_BADPARAM - bad input parameters 


BEGIN 
EXTERNAL REGISTER 
COMMON : 
MAP ; 
ABD : REF BBLOCKVECTOR C, ABDSC_LENGTH); ! buffer descriptors 
LOCAL 
FIB : REF BBLOCK, ' address of fib 
FIBL; ! Length of user fib 
EXTERNAL 
LOCAL.FIB : BBLOCK, ! internal copy of user fib 
10_PACKET : REF BBLOCK, ! address of current io request packet 
CURRENT _WCB : REF BBLOCK; ! user's window 
BIND 


LOC_FID = LOCAL_F IBLF IBSW_F ID); 


15 
ara, 1$-Bep-1964 09:21:04  yaret BLisg-32_v4.02742 


-Sep- MTAACP. SRCIG 


18 p } get the length of the user-supplied fib. 
0 FIBL = .ABDCABDS$C_FIB, ABD$W_COUNT]; 
1 8 FIB = .ABDCABDSC_FIB, ABDSW_TEXT] + ABDCABDSC_FIB, ABD$W_TEXT] + 1; 
¢ 2 CHSCOPY(.FIBL, .FIB, 0, FIBSK_MTALEN, LOCAL_FIB); 
¢ 30 if file open, the input fid must request same file 
$ 50 IF .CURRENT_WCB NEQ 0 
50 THE 
3 3 BEGIN 
, 5 IF .FIBL NEQ 0 
§ 3] -FIBL LSS FIBSC_ACCDATA 
3 31 ERR_EXIT(SS$_INSFARG); 
32 51 IF .LOCAL_FIBCFIBSW_FID_NUM) EQL 0 
37 51 THEN 
M4 BEGIN 
9 LOC_F1 16> = .CURRENT_VCBLVCBSW_CUR_NUM]; 
40 16> = 1; ! always return seq = 1 
cp : LOCAL_FIBCFIB$W_FID_RVN] = .CURRENT_VCBLVCBSW_RVNJ; 


AF gj, RENT VERE VCR OM CUR JUD NEQ .LOC_FID<O, 16> 
ERR_EXIT(SS$_BADPARAM) ; 

END 

If there is no file open, there must be a minimum fib. 


ELSE 
BEGIN 


IF .FIBL LSS FIBSC_ACCDATA 
ERR_EXIT(SSS$_INSFARG); 
END; 


RETURN LOCAL_F IB; 
END; 
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end of routine get_fib 
-TITLE GETFIB 
-IDENT \V04-000\ 
e-EXTRN LOCAL FIB, IO_PACKET 
“EXTRN CURRERT_WCB 
-PSECT SCODES,NOWRT,2 
O0OFC 00000 -ENTRY GET_FIB, Save R2,R3,R4,R5,R6,R7 


; 0443 


F 15 
GETFIB 1b-Se :04 AX-11_ Bliss-32 V4.0-742 Page 5 GE 
v54-000 1o-8e07 138s 93:faico — Eatance’sneice te ie :03005 125 v0 
7 0000G CF 43 § MOVAB LOCAL_FIB+4, R7 : ’ 
0 A MOVL a RO ; 0502 ‘ 
6 A AO 3C B MOVZWL 10(RO), FIBL : : 
1 8 A E F OVAB hs R1 ; 0503 ° 
28 61 3C¢ 3 13 MOVZWL (R11) : : 
5 01 A140 9E 00016 OV TERISEROD : : 
1C 00 60 ; 36 C 1 movcS FIBL, r16)" 0 #28, LOCAL_FIB ; 0504 : 
00006 F OD TSTL — wCB ; 0508 ‘ 
8 1 0 BEQL $ : . 
6 D TSTL FIBL 3; 0512 ° 
9? 1 A BEQL 1$ 3 ‘ 
OA 6 D C CMPL = FIBL, #10 ; 0514 : 
oF 18 0002F BGEQ 1$ : e 
0114 8F BF 00031 CHMU =: #276 ; 0516 : 
67 B85 00035 1$ TSTW OCAL_F I1B+4 ; 0518 : 
0D 12 00037 BNEQ $ : ; 
67 24 AB BO 00039 MOVW 6(CURRENT_VCB), LOC_FID ; 0521 : 
02 A? 01 80 0003D MOVW #1, LOC_FIB+2 3 0356 ; 
06 A? OE AB a 0041 MOVW 14(CURRENT_VCB), LOCAL_FIB+8 ; 052 ° 
67 24 AB Bi 00046 2$ CMPW © 36(CURRENT_VCB), LOC_FID ; 0526 . 
OD 13 QO04A BEQL 4$ 3 ‘ 
14 BF 0004C CHMU #20 : 0528 ‘ 
09 11 Q004E BRB 4$ : 0508 ; 
OA 56 D1 00050 3$ CMPL FIBL, #10 3; 0537 ‘ 
04 18 00053 BGEQ &$ 3 : 
0114 8F BF 00055 CHMU #276 : 0539 : 
50 FC A? YE 00059 4$: MOVAB LOCAL_FIB, RO : 0543 ‘ 
04 0005D RET : 0545 : 
; Routine Size: 94 bytes, Routine Base: S$CODE$ + 0000 ‘ 
: 164 0546 1 : 
> 165 0547 1 END : 
; 166 0548 1 : 
> 167 0549 0 ELUDOM ; 
; PSECT SUMMARY : 
3 Name Bytes Attributes : 
; SCODES 94 NOVEC,NOWRT, RD, EXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) ‘ 
; Library Statistics : 
Se eel es eal Sea eg Symbols -------- Pages Processing : 
; File Total Loaded Percent Mapped me : 
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; ~$255$DUA28:CSYSLIBILIB.L32;1 18619 17 0 1000 00:01.9 

: COMMAND QUALIFIERS 

3 BLISS/CHECK=(FIELD, INITIAL,OPTIMIZE)/LIS=L1IS$:GETFIB/OBJ=OBJ$:GETFIB MSRC$:GETFIB/UPDATE=(ENH$:GETFIB) 
Size: 94 code + 0 data bytes 

; un Tie: 6 06.7 
Elapsed Time: ° 


Lines/CPU Min: 48 
Poets Ba 21071 
penety Used: 88 pages 
Compilation Complete 
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